home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1988 September & October / rerun-1988-09-10a.d64 / joystick prg#2 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  759b  |  21 lines
  1. 10 rem demonstration - kenny lawson
  2. 20 a$="     ":b$=a$+"  ":forx=1to15:an$=an$+chr$(17):next:an$=chr$(19)+an$
  3. 30 poke646,7:printchr$(147);:print"file"b$"copy"b$"cut"b$"paste":print
  4. 40 print"disk"b$"view"b$"help"b$"print":forx=1to21:print:next
  5. 50 print"transfer"a$"data"a$"time"a$"quit"chr$(19)
  6. 60 c$="":poke53281,6:poke53280,14:sys680
  7. 70 p=1024+(int((peek(53249)-50)/8)*40)+(int((peek(53248)+256*peek(53264))/8)-3)
  8. 80 ifp<1027thenc$="file"
  9. 90 ifp>1034andp<1039thenc$="copy"
  10. 100 ifp>1045andp<1049thenc$="cut"
  11. 110 ifp>1056andp<1061thenc$="paste"
  12. 120 ifp>1103andp<1108thenc$="disk"
  13. 130 ifp>1114andp<1119thenc$="view"
  14. 140 ifp>1125andp<1130thenc$="help"
  15. 150 ifp>1136andp<1142thenc$="print"
  16. 160 ifp>1983andp<1992thenc$="transfer"
  17. 170 ifp>1996andp<2001thenc$="data"
  18. 180 ifp>2005andp<2010thenc$="time"
  19. 190 ifp>2015andp<2019thenc$="quit"
  20. 200 printan$"you called for         [157][157][157][157][157][157][157][157]"c$:ifc$<>"quit"then60
  21.